1 POKE1,55:GOTO100
6 SYS51150,FY(I),FX(I)
7 RETURN
8 REMSYSSA,22,0,1,">>>>[160]BUCHUNG[160]EINGEBEN[160]BZW.[160]AENDERN[160]<<<<<";
9 REMPRINT">>>>>>>[160](ENDE[160]MIT[160][160]SHIFT[160]RETURN)[160]<<<<<<<";
10 RETURN
11 REM FELDDRUCK
12 FORI=1TOFA
13 :SYSSA,FY(I),FX(I),0,F$(I)
15 :NEXTI
16 GOSUB54000:GOSUB54110
17 RETURN
18 REM-EINGABEMENUE
19 Y%=0:Z=1:BH$=" ":AH$=CHR$(32)
20 SYSS9,FY(I),FX(I)+Z-1
21 SYSS3,AH$,Y%:REM EDITOR
22 ONY%GOTO24,27,27,29,32,35,35,37,39,41,44,34,48,49,49,48,46,49,49,46
23 REM-KLEIN
24 IFZ>FL(I)THENSYSSA,FY(I),FX(I),0,F$(I):I=I+1:RETURN
25 :SYSS4,AH$,BH$,F$(I),Z,Y%:SYSSA,FY(I),FX(I),0,F$(I):Z=Z+1:GOTO20
26 REM-RETURN UND CRSR UNTEN
27 SYSSA,FY(I),FX(I),0,F$(I):I=I+1:R=-1:RETURN
28 REM-DELETE
29 IFZ<=1GOTO20
30 :SYSS4,AH$,BH$,F$(I),Z,Y%:Z=Z-1:SYSSA,FY(I),FX(I),0,F$(I):GOTO20
31 REM-CRSR RECHTS
32 Z=Z+1:IFZ>FL(I)THENZ=1
33 GOTO20
34 Z=Z-1:IFZ<1THENZ=FL(I)
35 GOTO20
36 REM-GROSS
37 GOTO20
38 REM-SH RETURN
39 GOTO20
40 REM-CRSR OBEN
41 SYSSA,FY(I),FX(I),0,F$(I):IFI>1THENI=I-1:R=1:RETURN
42 :I=1:R=1:RETURN
43 REM-INSERT
44 IFZ>=FL(I)GOTO20
45 :SYSS4,AH$,BH$,F$(I),Z,Y%:SYSSA,FY(I),FX(I),0,F$(I):GOTO20
46 VE=2:AA$=AH$:RETURN
48 VE=1:AA$=AH$:RETURN
49 GOTO20
50 REM-START
51 GOSUB8
52 GOSUB12
53 I=1
54 MD$="EINGABE":GOSUB62000
55 VE=0:GOSUB18:IFVE>0GOTO63
56 J=I+R:K=0
57 ONJGOSUB75,81,83,86,91
58 IFK=0THEN61
59 MD$="EINGABEFEHLER":GOSUB62000
60 SYSSA,FY(I),FX(I),0,""F$(I)"[154]":GOTO55
61 IFI>FATHENI=FA
62 GOTO54
63 IFVE=2THENRETURN
64 MD$="EINGABEKONTROLLE":GOSUB62000
65 JJ=0
66 FORJ=1TOFA:K=0
67 :ONJGOSUB75,81,83,86,91
68 :IFK=0THEN72
69 :IFJJ=0THENJJ=J
70 :MD$="EINGABEFEHLER":GOSUB62000
71 :I=J:SYSSA,FY(I),FX(I),0,""F$(I)"[154]":GOSUB6
72 :NEXTJ
73 IFJJ>OTHENI=JJ:GOTO55
74 RETURN
75 IFMID$(F$(1),2,1)<"0"ORMID$(F$(1),2,1)>"9"THENF$(1)=" "+MID$(F$(1),1,1)
76 SYSSA,FY(1),FX(1),0,F$(1)
77 TH=VAL(F$(J))
78 IFTH< 1ORTH>31THENK=J:I=J:RETURN
79 F1$=F$(1)+"."+MID$(DN$,3,2)+"."+MID$(DN$,1,2)
80 RETURN
81 REM TEXT
82 RETURN
83 REM WERT
84 SYSS7,F$(3),2:SYSSA,FY(3),FX(3),0,F$(3)
85 RETURN
86 REM KONTO
87 FORKK=1TOKA
88 :IFF$(J)=KZ$(KK)THENGOSUB54060:RETURN
89 :NEXT
90 K=J:I=J:RETURN
91 REM VERW.
92 FORKK=1TOVA
93 :IFF$(J)=VZ$(KK)THENGOSUB54110:RETURN
94 :NEXT
95 K=J:I=J:RETURN
100 POKE53280,11:POKE53281,0:PRINT"[154]";CHR$(142);CHR$(8);
101 GOSUB5000
102 IFPEEK(49152)<>76THENLOAD"MASCH*",8,1
103 IFPEEK(828)=0THENLOAD"STRING.MA",8,1
104 SM=199:DIMS$(199):DIMS%(199)
105 DIMT$(32):DIMH$(2)
107 L$="                                        "+""
109 EP=1.000001
110 FORI=0TOSM:S$(I)="     "+"":NEXTI
120 FORJ=1TO32:T$(J)="12345678901"+"":NEXTJ
122 H$(1)="1234567"+"":H$(2)=CHR$(32)
130 S1=49152:REM SORTER
131 S2=50150:REM EDITOR 1
132 S3=50155:REM EDITOR 2
133 S4=50350:REM DELETE
134 S5=50550:REM ZAHL SPEICHERN
135 S6=50600:REM ZAHL HOLEN
136 S7=50650:REM ZAHLERNFORMAT
137 S8=50950:REM GET#,ANZ
138 S9=51150:REM PRINT AT
139 SA=51165:REM PRINT AT
140 SB=51250:REM SUCHER
141 SC=51550:REM SCROLLEN
142 SD=51555:REM SCROLLEN
143 SE=51859:REM CENTRONICS
144 SF=828  :REM SUBSTRING
145 SG=51200:REM DEV. PRESENT
160 MD$="DATENDISK EINL., TASTE DRUECKEN"
170 GOSUB62500
180 DIMG1$(3):DIMG2$(3)
181 G1$(0)="[146] [146]":G2$(0)="[146] [146]"
182 G1$(1)="[146][180][146]":G2$(1)="[146][170][146]"
183 G1$(2)="[146][161][146]":G2$(2)="[161][146]"
184 G1$(3)="[170][146]":G2$(3)="[165][146]"
200 PRINT"[154]";:FP=1
300 DIMKN$(13):DIMKZ$(13)
400 DIMVN$(21):DIMVZ$(21)
500 HA$="            "
501 I1$=L$
502 B$=LEFT$(L$,3)
503 F1$="TT.MM.JJ"+""
504 I3$=L$+L$
505 A$=LEFT$(L$,42)
506 I2$=L$
507 I4$=L$
508 I5$=LEFT$(I3$,46)
509 I6$=LEFT$(I3$,42)
510 H1$=LEFT$(L$,1)
511 H2$=LEFT$(L$,2)
512 H3$=LEFT$(L$,3)
513 H4$=LEFT$(L$,4)
514 H6$=LEFT$(L$,6)
515 H7$=LEFT$(L$,7)
516 H8$=LEFT$(L$,8)
517 HR$=LEFT$(L$,11)
518 DN$=LEFT$(L$,4)
519 DA$=LEFT$(L$,4)
520 TB$=""
700 MG=41
701 ZH=INT(S6/256):ZL=S6-ZH*256
702 POKE785,ZL:POKE786,ZH
705 DEF FNKB(R)=USR((32*R+NR- 1)*6)
706 DEF FNVB(R)=USR((32*R+NR+11)*6)
710 DIMF$(5):GOSUB56500
720 DIMFX(5):DIMFY(5):DIMFL(5):FA=5
730 FY(1)= 2:FX(1)= 9:FL(1)= 2
740 FY(2)= 4:FX(2)= 9:FL(2)=31
750 FY(3)= 6:FX(3)= 9:FL(3)=11
760 FY(4)= 8:FX(4)= 9:FL(4)= 1
770 FY(5)=10:FX(5)= 9:FL(5)= 1
810 DIMM$(12)
811 M$(1)="JAN."
812 M$(2)="FEB."
813 M$(3)="MRZ."
814 M$(4)="APR."
815 M$(5)="MAI "
816 M$(6)="JUNI"
817 M$(7)="JULI"
818 M$(8)="AUG."
819 M$(9)="SEP."
820 M$(10)="OKT."
821 M$(11)="NOV."
822 M$(12)="DEZ."
1000 REM BILANZEN EINLESEN
1010 OPEN3,8,15
1020 GOSUB21500:REM OPEN BILANZEN
2000 FP=2:CLOSE6
2010 PRINT"[147]HAUPTMENUE                 HAUSHALTSBUCH";
2011 PRINT"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
2020 PRINT"            EINGABE       = E"
2030 PRINT"            DURCHSICHT    = D"
2040 PRINT"            AUSWERTUNG    = A"
2045 PRINT"            KONTENARTEN   = K"
2050 PRINT"            PROGRAMMENDE  = P"
2060 SYSS9,17,0:AI$="":INPUT"            AUSWAHL       ";AI$
2065 IFAI$="_"THEN2000
2070 IFAI$="E"THEN4000
2080 IFAI$="D"THEN6000
2090 IFAI$="A"THEN12000
2095 IFAI$="K"THEN25000
2100 IFAI$="P"THENEND
2110 GOTO2060
2500 REM MONATSABFRAGE
2502 J1=INT((MA-1)/12)+1:M1=MA-(J1-1)*12
2504 SYSSF,H4$,STR$(M1+100),1,3,2
2505 SYSSF,H4$,STR$(J1+100),3,3,2
2510 IFDN$="    "THEN2520
2511 SYSSF,H4$,DN$,1,3,2
2512 SYSSF,H4$,DN$,3,1,2
2520 SYSSA,20,28,1,H4$
2530 SYSS9,20,12:INPUT"MONAT MMJJ    ";HJ$:SYSSF,H4$,HJ$,1,1,4
2535 IFHJ$="_"THENONFPGOTO101,2000,12000
2540 SYSSF,H2$,H4$,1,1,2:M1=VAL(H2$):SYSSF,H2$,H4$,1,3,2:J1=VAL(H2$)
2545 MU=12*(J1-1)+M1
2550 IFM1<1ORM1>12ORMU<MA-MT ORMU>MA+1GOTO2500
2560 SYSSF,DN$,H4$,1,3,2
2561 SYSSF,DN$,H4$,3,1,2
2570 GOSUB63000
2580 IFFM=62THEN2500
2590 RETURN
2600 REM MONATSABFRAGE
2602 J1=INT((MA-1)/12)+1:M1=MA-(J1-1)*12
2604 SYSSF,H4$,STR$(M1+100),1,3,2
2605 SYSSF,H4$,STR$(J1+100),3,3,2
2610 IFDN$="    "THEN2620
2611 SYSSF,H4$,DN$,1,3,2
2612 SYSSF,H4$,DN$,3,1,2
2620 SYSSA,4,29,1,H4$
2630 SYSS9,4, 1:INPUT"MONAT MMJJ                ";HJ$:SYSSF,H4$,HJ$,1,1,4
2635 IFHJ$="_"THENONFPGOTO101,2000,12000
2640 SYSSF,H2$,H4$,1,1,2:M1=VAL(H2$):SYSSF,H2$,H4$,1,3,2:J1=VAL(H2$)
2650 IFM1<1ORM1>12GOTO2600
2660 SYSSF,DN$,H4$,1,3,2
2661 SYSSF,DN$,H4$,3,1,2
2670 GOSUB63000
2680 IFFM=62THEN2600
2690 RETURN
2700 REM MONATSABFRAGE
2702 J1=INT((MA-1)/12)+1:M1=MA-(J1-1)*12
2704 SYSSF,H4$,STR$(M1+100),1,3,2
2705 SYSSF,H4$,STR$(J1+100),3,3,2
2710 IFDN$="    "THEN2720
2711 SYSSF,H4$,DN$,1,3,2
2712 SYSSF,H4$,DN$,3,1,2
2720 SYSSA,20,29,1,H4$
2730 SYSS9,20, 9:INPUT"MONAT MMJJ        ";HJ$:SYSSF,H4$,HJ$,1,1,4
2735 IFHJ$="_"THENONFPGOTO101,2000,12000
2740 SYSSF,H2$,H4$,1,1,2:M1=VAL(H2$):SYSSF,H2$,H4$,1,3,2:J1=VAL(H2$)
2750 IFM1<1ORM1>12GOTO2700
2760 SYSSF,DN$,H4$,1,3,2
2761 SYSSF,DN$,H4$,3,1,2
2770 GOSUB63000
2780 IFFM=62THEN2700
2790 RETURN
3000 REM OPEN#4
3010 IFCE=1THEN3100
3020 D%=4
3030 SYSSG,D%
3040 IFD%=0THENOPEN4,4:RETURN
3050 MD$="DRUCKER EINSCHALTEN, TASTE DREUCKEN":GOSUB62500:GOTO3000
3100 SYS51859
3110 MD$="DRUCKER EINSCHALTEN":GOSUB62000
3120 OPEN4,5
3130 MD$="ES WIRD GEDRUCKT":GOSUB62000
3140 RETURN
3500 REM HIRES COPIE
3510 IFCE<>1THENRETURN
3520 SYS51859:OPEN1,7:PRINT#1,"                    ";CHR$(0):CLOSE7:RETURN
4000 REM NEUAUFNAHME
4003 IFCS=1THENMD$="ALTE BESTANDSDISK EINGELEGT":GOSUB62500:GOTO2000
4009 GOSUB2500
4010 SP=0:MD$=""
4020 GOSUB55000
4025 GOSUB56000
4026 GOSUB53000
4030 GOSUB50
4040 GOSUB58000
4100 REM POKE198,0:WAIT198,1:GETAA$
4200 IFAA$<>CHR$(136)ANDAA$<>CHR$(133)THEN4500
4301 :GOSUB57000:GOSUB55000
4302 :GOSUB11
4303 :MD$="EINGABE WIRD VERBUCHT"
4304 :GOSUB62000
4322 :GOSUB49000
4323 :P=1:GOSUB30000
4325 :V=1:GOSUB46000
4340 :GOSUB39500:IFAA$=CHR$(136)GOTO2000
4345 :GOTO4025
4500 IFAA$<>CHR$(137)THEN4600
4510 :MD$="EINGABEN NICHT UEBERNOMMEN"
4520 :GOSUB62000
4530 :GOTO4025
4600 IFAA$<>CHR$(140)THEN4700
4610 :GOSUB39500:GOTO2000
4700 GOTO4100
5000 REM TITEL
5010 PRINT"[147]HAUSHALTSBUCH              HAUSHALTSBUCH";
5020 PRINT"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
5030 PRINT"           (C) JUERGEN KNOEPKE"
5040 PRINT"               GARTENSTR. 10"
5050 PRINT"               3339 SOELLINGEN"
5060 PRINT"               05354/691"
5070 PRINT"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
5080 PRINT"HINWEIS: DIE MEISTEN FUNKTIONEN KOENNEN"
5090 PRINT"         DURCH EINGABE VON '_' (REST"
5100 PRINT"         SPACES) ABGEBROCHEN WERDEN"
5110 RETURN
6000 GOSUB2500:FE=0
6005 PRINT"[147]DURCHSICHT   SCHLUESSEL[154]    HAUSHALTSBUCH";
6006 PRINT"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]";
6007 GOSUB55075
6030 PRINT""HA$"DATUM       = D"
6040 PRINTHA$"KONTO/DATUM = K"
6050 PRINTHA$"VERW./DATUM = V"
6060 INPUT"            AUSWAHL     ";SS$
6061 IFSS$="_"THEN2000
6064 IFSS$<>"D"ANDSS$<>"K"ANDSS$<>"V"THEN6005
6070 INPUT"            AB TAG        1[157][157][157]";H$:TT=VAL(H$)
6071 IFH$="_"THEN2000
6075 IFTT<1ORTT>31THENPRINT"[145][145]":GOTO6070
6080 IFSS$<>"K"THEN6200
6090 INPUT"            KONTO       ";H$
6091 IFH$="_"THEN2000
6100 FORY=1TOKA
6110 :IFH$<>KZ$(Y)THENNEXT
6120 IFY>KATHENPRINT"[145]";:GOTO6090
6200 IFSS$<>"V"THEN6290
6210 INPUT"            VERWENDUNG  ";H$
6211 IFH$="_"THEN2000
6220 FORY=1TOVA
6230 :IFH$<>VZ$(Y)THENNEXT
6240 IFY>VATHENPRINT"[145]";:GOTO6210
6290 GOSUB32000:IFE%=0THENMD$="KEINE BUCHUNG ZUR AUSWAHL":GOSUB62500:GOTO2000
6291 P=0
6292 P=P+1:IFASC(S$(S%(P)))-70<TT ANDP<E%THEN6292
6293 MD$=STR$(E%)+" BUCHUNGEN ZUR AUSWAHL":GOSUB62000
6300 GOSUB31000
6320 GOSUB55000
6325 GOSUB57000
6330 GOSUB11
6340 GOSUB53000
6350 MD$="FUNKTIONSTASTE WAEHLEN"
6360 GOSUB62000
6400 POKE198,0:WAIT198,1:GETAA$
6410 IFAA$<>CHR$(133)THEN6500
6420 :IFP<E%THEN6425
6421 :MD$="LETZTE BUCHUNG IST ANGEZEIGT"
6422 :GOSUB62000
6423 :GOTO6400
6425 :P=P+1:GOSUB31000
6440 :MD$="LETZTER SATZ UNVERAENDERT"
6450 :GOSUB62000
6460 :GOTO6325
6500 IFAA$<>CHR$(134)THEN6600
6520 :IFP>1THEN6525
6521 :MD$="ERSTE BUCHUNG IST ANGEZEIGT"
6522 :GOSUB62000
6523 :GOTO6400
6525 :P=P-1:GOSUB31000
6540 :MD$="LETZTER SATZ UNVERAENDERT"
6550 :GOSUB62000
6560 :GOTO6325
6600 IFAA$<>CHR$(136)THEN6700
6610 :GOTO2000
6700 GOTO6800
6701 :V=-1:GOSUB46000
6703 :GOSUB58000
6704 :GOSUB33000
6730 :V= 1:GOSUB46000
6740 :GOSUB39500:GOSUB32000
6760 :MD$="AENDERUNG UEBERNOMMEN"
6770 :GOSUB62000
6780 :GOTO6400
6800 IFAA$<>CHR$(138)THEN6900
6820 :IFCS=1THENMD$="ALTE BESTANDSDISK EINGELEGT":GOSUB62500:GOTO6900
6840 :V=-1:GOSUB46000
6859 :GOSUB34000
6860 :GOSUB39500:GOSUB32000
6865 :MD$="SATZ GELOESCHT"
6870 :GOSUB62000
6900 IFAA$<>CHR$(137)THEN7000
6905 :IFCS=1THENMD$="ALTE BESTANDSDISK EINGELEGT":GOSUB62500:GOTO7000
6909 :GOSUB53500
6910 :GOSUB50
6920 :IFAA$="[137]"ORAA$="[140]"THEN6320
6930 :MD$="AENDERUNG WIRD VERBUCHT"
6940 :GOSUB62000
6950 :GOSUB53000
6960 :GOTO6701
7000 IFOM$="N"THEN6350
7010 GOTO6400
8000 REM BILANZEN
8040 J1=INT((MA-1)/12)+1:M1=MA-(J1-1)*12
8045 SYSSF,H4$,STR$(M1+100),1,3,2
8046 SYSSF,H4$,STR$(J1+100),3,3,2
8050 SYSSA,21,29,1,H4$
8055 SYSS9,21, 9:INPUT"MONAT MMJJ        ";HJ$:SYSSF,H4$,HJ$,1,1,4
8056 IFHJ$="_"THEN12000
8060 SYSSF,H2$,H4$,1,1,2:M1=VAL(H2$):SYSSF,H2$,H4$,1,3,2:J1=VAL(H2$)
8070 IFM1<1ORM1>12GOTO8000
8080 MU=12*(J1-1)+M1:IFMU<MA-MT ORMU>MAGOTO8000
8090 GOSUB48000
8100 GOSUB62800
8110 GOTO12010
12000 FP=3:AJ$=""
12010 PRINT"[147]AUSWERTUNG                 HAUSHALTSBUCH";
12012 PRINT"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
12020 PRINT"         BILANZEN  GRAPHIK = 1"
12030 PRINT"         BILANZEN  SCREEN  = 2"
12040 PRINT"         BILANZEN  DRUCKER = 3"
12050 PRINT"         BUCHUNGEN SCREEN  = 4"
12060 PRINT"         BUCHUNGEN DRUCKER = 5"
12062 PRINT"         BILANZKORREKTUR   = 6"
12065 PRINT"         HAUPTMENUE        = 0"
12067 SYSSA,18,29,1,AJ$
12070 SYSS9,18,0:INPUT"         AUSWAHL           ";AJ$
12080 IFAJ$="4"THENSP=1:GOTO14000
12090 IFAJ$="5"THENSP=2:GOTO14000
12100 IFAJ$="2"THEN8000
12105 IFAJ$="1"THEN26000
12110 IFAJ$="3"THEN16000
12122 IFAJ$="6"THEN20000
12125 IFAJ$="0"ORAJ$="_"THEN2000
12130 GOTO12067
14000 REM BUCHUNGEN
14005 IFSP=2THENGOSUB3000
14010 IFSP=1THENPRINT"[147]BUCHUNGEN SCREEN           HAUSHALTSBUCH";
14011 IFSP=2THENPRINT"[147]BUCHUNGEN DRUCKER          HAUSHALTSBUCH";
14012 PRINT"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
14015 GOSUB55075:GOSUB2600
14016 INPUT" VON TAG                     1 [157][157][157][157]";H$:T1=VAL(H$):IFH$="_"THEN12000
14017 IFT1<1ORT1>31THENPRINT"[145][145][145]":GOTO14016
14018 INPUT" BIS TAG                     31[157][157][157][157]";H$:T2=VAL(H$):IFH$="_"THEN12000
14019 IFT1>T2ORT2>31THENPRINT"[145][145]":GOTO14018
14020 INPUT" K[146]ONTO, V[146]ERW. ODER $[146] ALLES ";B3$:B1$=B3$
14021 IFB1$="_"THEN12000
14025 IFB1$="$"THENB1$="K":B2$="$":GOTO14045
14030 IF B1$<>"K"ANDB1$<>"V"THENPRINT"[145][145]":GOTO14020
14040 INPUT" KURZZEICHEN   (ALLES=$)   ";B2$
14041 IFB2$="_"THEN12000
14045 IFB2$="$"THENY=1:GOTO14120
14050 IFB1$<>"K"THEN14090
14060 FORY=1TOKA
14070 :IFB2$<>KZ$(Y)THENNEXT
14075 IFY>KATHENPRINT"[145][145]":GOTO14040
14080 GOTO14120
14090 FORY=1TOVA
14100 :IFB2$<>VZ$(Y)THENNEXT
14101 IFY>VATHENPRINT"[145][145]":GOTO14040
14120 SS$=B1$:GOSUB32000
14130 P=0:IFE%=0THEN14500
14140 P=P+1:IFASC(S$(S%(P)))-70<T1 ANDP<E%THEN14140
14150 IFASC(S$(S%(P)))-70>T2THEN14500
14161 ZZ=0:SYSSF,HR$,"       0.00",1,1,11
14163 H4=0:X=0:GOSUB45000:H=MA-(12*(J1-1)+M1-1):IFH>MTTHENX=0:GOSUB45000:GOTO14165
14164 IFB1$="K"THENNR=Y:X=FNKB(H):GOSUB45000
14165 IFB1$="K"THENH4=1
14166 GOSUB14640
14170 GOSUB31000
14190 IFASC(B$)-70>T2THEN14500
14191 GOSUB57000
14195 X=VAL(HR$)+VAL(F$(3)):GOSUB45000
14198 SYSSF,H1$,B$,1,3,1:IFB1$="K"THENSYSSF,H7$,VN$(ASC(H1$)-70),1,1,7
14199 SYSSF,H1$,B$,1,2,1:IFB1$="V"THENSYSSF,H7$,KN$(ASC(H1$)-70),1,1,7
14200 SYSSF,I1$,F$(1),1,1,2
14201 SYSSF,I1$,F$(2),4,1,15
14202 SYSSF,I1$,"/",19,1,1
14203 SYSSF,I1$,F$(3),21,1,11
14204 SYSSF,I1$,H7$,33,1,7
14210 SYSSF,I2$,F$(2),4,16,16
14220 SYSSF,I3$,F1$,1,1,8
14221 SYSSF,I3$,F$(2),11,1,31
14222 SYSSF,I3$,F$(3),46,1,11
14224 SYSSF,I3$,H7$,59,1,7
14226 IFT1=1THENSYSSF,I3$,HR$,68,1,11
14227 IFT1>1THENSYSSF,I3$,L$,68,1,11
14240 ZZ=ZZ+1
14250 IFSP=2THEN14390
14260 IFZZ<12THENPRINTI1$;:PRINTI2$;
14270 IFZZ>11THENSYSSC,2,23,I1$;:SYSSC,2,23,I2$;
14370 IFZZ<>INT(ZZ/11)*11THEN14390
14380 MD$="WEITER: TASTE DRUECKEN":GOSUB62000
14381 GETHZ$:IFHZ$=""THEN14381
14382 IFHZ$="_"THEN12000
14385 MD$="ANZEIGE BUCHUNGEN":GOSUB62000
14390 IFSP=1THEN14410
14395 SYSSA,22,0,1,I1$;I2$;
14400 PRINT#4,I3$:GETHZ$:IFHZ$="_"THEN12000
14405 GOSUB14600
14410 IFP=E%THEN14500
14415 P=P+1:GOSUB31000
14420 GOTO14190
14500 IFSP=2ANDE%>0THENFORJ=1TO77:PRINT#4,"-";:NEXTJ:PRINT#4,"-"
14501 IFSP=2ORE%=0THEN14506
14502 MD$="WEITER: TASTE DRUECKEN":GOSUB62000
14503 GETHZ$:IFHZ$=""THEN14503
14504 IFHZ$="_"THEN12000
14505 MD$="ANZEIGE BUCHUNGEN":GOSUB62000
14506 IFB2$="$"ANDB1$="K"ANDY<KATHENY=Y+1:GOTO14120
14510 IFB2$="$"ANDB1$="V"ANDY<VATHENY=Y+1:GOTO14120
14550 IFB1$="K"ANDB3$="$"THENB1$="V":GOTO14045
14555 IFSP<>1THENPRINT#4,CHR$(12):CLOSE4
14599 GOTO12000
14600 H=0:IFSP=1ANDZZ=INT(ZZ/10)*10THENH=1
14610 IFSP=2ANDZZ=INT(ZZ/60)*60THENH=2
14620 IFH<>1ANDH<>2 THEN RETURN
14640 IFB1$="K"THENSYSSF,I4$,"KONTO  ",1,1,7
14645 IFB1$="K"THENSYSSF,I4$,KN$(Y),8,1,7
14650 IFB1$="V"THENSYSSF,I4$,"VERW.  ",1,1,7
14655 IFB1$="V"THENSYSSF,I4$,VN$(Y),8,1,7
14660 SYSSF,I4$," BUCHUNGEN ",22,1,11
14662 SYSSF,I4$,M$(M1),33,1,4
14664 SYSSF,I4$,STR$(J1+100),38,3,2
14670 IFSP<>1THEN14720
14680 PRINT"[147]"I4$;
14690 PRINT"----------------------------------------";
14710 RETURN
14720 REM
14740 PRINT#4:PRINT#4:PRINT#4:PRINT#4,CHR$(14)I4$
14750 FORJ=1TO77:PRINT#4,"-";:NEXT
14751 PRINT#4,"-"
14760 IFT1<>1THENH4=0
14761 IFH4<>0THENPRINT#4,">>>>>>>>  ANFANGSSTAND                       "HR$:H4=0
14762 ZZ=0
14770 RETURN
16000 REM BILANZENDRUCK
16020 PRINT"[147]BILANZEN DRUCKER           HAUSHALTSBUCH";
16021 PRINT"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
16022 J1=INT((MB-1)/12)+1:M1=MA-MT-(J1-1)*12
16023 SYSSF,H4$,STR$(M1+100),1,3,2:SYSSF,H4$,STR$(J1+100),3,3,2
16024 SYSSA,4,23,1,H4$
16025 SYSS9,4,10:INPUT"VON : MMJJ ";HJ$:SYSSF,H4$,HJ$,1,1,4:IFHJ$="_"THEN12000
16026 SYSSF,H2$,H4$,1,1,2:M1=VAL(H2$):SYSSF,H2$,H4$,1,3,2:J1=VAL(H2$)
16027 IFM1<1ORM1>12GOTO16022
16028 MU=12*(J1-1)+M1:IFMU<MA-MT ORMU>MAGOTO16022
16032 J2=INT(MA/12)+1:M2=MA-(J2-1)*12
16033 SYSSF,H4$,STR$(M2+100),1,3,2:SYSSF,H4$,STR$(J2+100),3,3,2
16034 SYSSA,6,23,1,H4$
16035 SYSS9,6,10:INPUT"BIS : MMJJ ";HJ$:SYSSF,H4$,HJ$,1,1,4:IFHJ$="_"THEN12000
16036 SYSSF,H2$,H4$,1,1,2:M2=VAL(H2$):SYSSF,H2$,H4$,1,3,2:J2=VAL(H2$)
16037 IFM2<1ORM2>12GOTO16032
16038 MO=12*(J2-1)+M2:IFMO<MUORMO>MAGOTO16032
16100 GOSUB3000
16120 PRINT#4:PRINT#4:PRINT#4
16130 PRINT#4,CHR$(14)"  KONTOSTAENDE "M$(M1)" "STR$(J1)" - "M$(M2)" "STR$(J2)
16155 FORK=1TOINT((KA-1)/6)+1
16156 :UG=6*(K-1)+1
16157 :OG=UG+5:IFOG>KATHENOG=KA
16160 :PRINT#4
16170 :FORI=1TO79:PRINT#4,"-";:NEXTI
16180 :PRINT#4
16190 :PRINT#4,"MONAT  ";
16200 :FORI=UGTOOG:PRINT#4,"     "KN$(I);:NEXTI
16220 :FORI=MUTOMO
16225 : PRINT#4
16230 : JH=INT((I-1)/12)+1
16240 : MH=I-12*(JH-1)
16250 : PRINT#4,M$(MH)" "MID$(STR$(JH),2,2);
16260 : FORII=UGTOOG
16270 :  NR=II:X=FNKB(MA-I):GOSUB45000
16280 :  PRINT#4," ";HR$;
16290 :  NEXTII
16310 : NEXTI
16320 :NEXTK
16324 PRINT#4
16325 FORI=1TO79:PRINT#4,"-";:NEXT
16326 PRINT#4:PRINT#4:PRINT#4:PRINT#4
16430 PRINT#4,CHR$(14)"  VERWENDUNGEN "M$(M1)" "STR$(J1)" - "M$(M2)" "STR$(J2)
16455 FORK=1TOINT((VA-1)/6)+1
16456 :UG=6*(K-1)+1
16457 :OG=UG+5:IFOG>VATHENOG=VA
16460 :PRINT#4
16470 :FORI=1TO79:PRINT#4,"-";:NEXTI
16480 :PRINT#4
16490 :PRINT#4,"MONAT  ";
16500 :FORI=UGTOOG:PRINT#4,"     "VN$(I);:NEXTI
16520 :FORI=MUTOMO
16525 : PRINT#4
16530 : JH=INT((I-1)/12)+1
16540 : MH=I-12*(JH-1)
16550 : PRINT#4,M$(MH)" "MID$(STR$(JH),2,2);
16560 : FORII=UGTOOG
16570 :  NR=II:X=FNVB(MA-I):GOSUB45000
16580 :  PRINT#4," ";HR$;
16590 :  NEXTII
16610 : NEXTI
16620 :NEXTK
16624 PRINT#4
16625 FORI=1TO79:PRINT#4,"-";:NEXT
16626 PRINT#4:PRINT#4:PRINT#4:PRINT#4
16730 PRINT#4,CHR$(14)"  BILANZSUMMEN "M$(M1)" "STR$(J1)" - "M$(M2)" "STR$(J2)
16760 :PRINT#4:GOSUB16900
16770 :FORI=1TO38:PRINT#4,"-";:NEXTI
16780 :PRINT#4:GOSUB16900
16790 :PRINT#4,"MONAT     VERWENDUNGEN    KONTOSTAENDE"
16820 :FORI=MUTOMO
16825 : PRINT#4:GOSUB16900
16830 : JH=INT((I-1)/12)+1
16840 : MH=I-12*(JH-1)
16850 : PRINT#4,M$(MH)" "MID$(STR$(JH),2,2)"    ";
16855 : XN=0:FORJ=1TOKA:NR=J:XN=FNKB(MA-I)+XN:NEXTJ
16860 : YN=XN-XA:IFI=MUTHENYN=0:FORJ=1TOVA:NR=J:YN=FNVB(MA-I)+YN:NEXTJ
16870 : X=YN:GOSUB45000:PRINT#4,HR$;"     ";
16880 : X=XN:GOSUB45000:PRINT#4,HR$;
16885 : XA=XN
16890 : NEXTI
16891 :PRINT#4:GOSUB16900
16892 :FORI=1TO38:PRINT#4,"-";:NEXTI
16893 :PRINT#4,CHR$(12)
16898 CLOSE4
16899 GOTO12000
16900 FORJ=1TO22:PRINT#4," ";:NEXTJ:RETURN
20000 REM MONATSBILANZEN ERNEUERN
20001 GOSUB2700
20002 MU=12*(J1-1)+M1:IFMU<MA-MT ORMU>MATHENCLOSE6:GOTO20000
20003 MD$="AUGENBLICK BITTE":GOSUB62000
20004 FORK=1TOKA
20005 :NR=K:IFMU>=MATHEN20008
20006 :FORJ=0TOMA-MU-1:H=FNKB(J)-(FNKB(MA-MU-1)-FNKB(MA-MU))
20007 :SYSS5,(32*J+K-1)*6,H:NEXTJ
20008 :H=0:IFMA-MU<MTTHENH=FNKB(MA-MU+1)
20009 :SYSS5,(32*(MA-MU)+K-1)*6,H:NEXTK
20010 FORK=1TOVA
20011 :NR=K
20012 :IFMU>=MATHEN20016
20013 :FORJ=0TOMA-MU-1:H=FNVB(J)-(FNVB(MA-MU-1)-FNVB(MA-MU))
20014 :SYSS5,(32*J+K+11)*6,H:NEXTJ
20016 :SYSS5,(32*(MA-MU)+K+11)*6,0
20017 :NEXTK
20018 GOSUB60000:GOSUB23500:GOSUB63000:SS$="D":GOSUB32000:P=0:GOSUB55000
20019 P=P+1:IFP>E%THENCLOSE6:GOTO12000
20020 GOSUB31000
20030 GOSUB57000
20050 GOSUB11
20060 MD$="NOCH"+STR$(E%-P+1)+" BUCHUNGEN":GOSUB62000
20090 V=1
20100 GOSUB46000
20180 GOTO20019
21000 REM BILANZEN UND BEZ. EINLESEN
21010 Z=0:GOSUB38000
21020 H$="1234567890A"+"":SYSS8,1,6,0,H$
21030 MB=VAL(MID$(H$, 1,4))
21040 MA=VAL(MID$(H$, 5,4))
21042 KA=ASC(MID$(H$, 9,1))
21044 VA=ASC(MID$(H$,10,1))
21045 CE=ASC(MID$(H$,11,1))
21046 CS=0:IFCE>9THENCE=CE-10:CS=1
21060 FORJ=1TO12
21080 :SYSS8,2,6,0,H$(1)
21090 :KN$(J)=H$(1):KZ$(J)=H$(2)
21100 :NEXTJ
21110 FORJ=1TO20
21120 :SYSS8,2,6,0,H$(1)
21130 :VN$(J)=H$(1):VZ$(J)=H$(2)
21140 :NEXTJ
21150 MT=MG:IFMA-MB<MGTHENMT=MA-MB
21160 Z=33+32*(MA-MB-MT):GOSUB38000
21170 FORJ=MTTO0STEP-1
21180 :SYSS8,32,6,0,T$(1)
21190 :FORI=1TO12:H=VAL(T$(I)):SYSS5,(32*J+I-1)*6,H:NEXTI
21200 :FORI=1TO20:H=VAL(T$(I+12)):SYSS5,(32*J+I+11)*6,H:NEXTI
21210 :NEXTJ
21220 RETURN
21500 REM BILANZEN EROEFFNEN
21510 OPEN6,8,6,"HB-BILANZEN"
21520 INPUT#3,FM
21530 IFFM<>62THENGOSUB61002:GOSUB21000:RETURN
21540 GOSUB21800:PRINT"";FM
21570 RETURN
21800 REM KEINE BILANZEN AUF DISK
21810 PRINT"[147]"
21820 PRINT" KEINE BILANZ-DATEI AUF BESTANDSDISK !"
21830 PRINT" BITTE ZUTREFFENDEN BUCHSTABEN EINGEBEN"
21840 PRINT" A) SIE HABEN AUS VERSEHEN EINE FALSCHE"
21850 PRINT"    BESTANDSDISKETTE EINGELEGT."
21860 PRINT" B) DIE EINGELEGTE DISKETTE SOLL IHRE "
21870 PRINT"    ERSTE BESTANDSDISKETTE WERDEN."
21880 PRINT" C) SIE WOLLEN AUF DIESER BESTANDS-"
21890 PRINT"    DISKETTE IHRE BESTEHENDE HAUSHALTS-"
21900 PRINT"    BUCHHALTUNG FUER EINEN NEUEN MONAT"
21910 PRINT"    FORTSETZEN (LETZTE DISKETTE IST"
21920 PRINT"    NAHEZU VOLL)."
21922 PRINT"    AUF DER ALTEN DISK KANN DANN NICHT"
21924 PRINT"    MEHR GEBUCHT WERDEN."
21844 POKE198,0:WAIT198,1:GETH$
21940 IFH$="A"THENRUN
21950 IFH$="B"THENGOSUB22000:RETURN
21960 IFH$="C"THENGOSUB22500:RETURN
21970 GOTO21844
22000 REM ERSTE BESTANDSDISK
22005 CLOSE6:CLOSE3
22010 PRINT"[147]  PROGRAMMDISK EINLEGEN, TASTE DRUECKEN"
22015 GOSUB62800
22020 OPEN3,8,15:GOSUB60000
22040 GOSUB21000:REM DATEI EINLESEN
22045 INPUT"[147]BEGINMONAT DER BUCHHALTUNG MMJJ";HJ$:SYSSF,H4$,HJ$,1,1,4
22046 SYSSF,H2$,H4$,1,1,2:MM=VAL(H2$):SYSSF,H2$,H4$,1,3,2:JJ=VAL(H2$)
22047 IFMM<1ORMM>12THENPRINT"[145][145][145][145]":GOTO22045
22050 MB=12*(JJ-1)+MM:MA=MB
22055 CLOSE6:CLOSE3
22060 PRINT"  BESTANDSDISK EINLEGEN, TASTE DRUECKEN"
22065 GOSUB62800
22070 OPEN3,8,15:OPEN6,8,6,"HB-BILANZEN,L,"+CHR$(11)
22072 MT$="DISK VOLL":GOSUB61000
22073 Z=1400:GOSUB38000:GOSUB61000:PRINT#6,"12345678.01";:GOSUB61000
22080 GOSUB23500:REM WERTE SPEICHERN
22090 GOSUB23000:REM BEZEICHNUGN SPEI.
22095 CLOSE6
22100 RETURN
22500 REM WEITERE BESTANDSDISK
22505 CLOSE6:CLOSE3
22510 PRINT"[147]  LETZTE BESTANDS-DISK EINLEGEN UND"
22515 PRINT"  TASTE DRUECKEN"
22517 GOSUB62800:OPEN3,8,15
22520 GOSUB60000
22540 GOSUB21000:REM DATEI EINLESEN
22542 CH=CE+10:Z=0:GOSUB38000
22544 PRINT#6,MID$(STR$(10000+MB),3)MID$(STR$(10000+MA),3)CHR$(KA)CHR$(VA)CHR$(CH);
22555 CLOSE6:CLOSE3
22560 PRINT"  NEUE BESTANDSDISK EINLEGEN UND"
22565 PRINT"  TASTE DRUECKEN"
22567 GOSUB62800
22570 OPEN3,8,15:OPEN6,8,6,"HB-BILANZEN,L,"+CHR$(11)
22573 Z=1400:GOSUB38000:GOSUB61000:PRINT#6,"12345678.01";:GOSUB61000
22580 GOSUB23500:REM WERTE SPEICHERN
22590 GOSUB23000:REM BEZEICHNUGN SPEI.
22595 CLOSE6
22600 RETURN
23000 REM BEZEICHUNGEN SPEICHERN
23010 Z=0:GOSUB38000
23015 PRINT#6,MID$(STR$(10000+MB),3)MID$(STR$(10000+MA),3)CHR$(KA)CHR$(VA)CHR$(CE);
23020 FORI=1TO12:PRINT#6,KN$(I)KZ$(I);:NEXTI
23030 FORI=1TO20:PRINT#6,VN$(I)VZ$(I);:NEXTI
23040 RETURN
23500 REM BILANZEN SPEICHERN
23501 Z=MT*32+32+1:GOSUB38000:PRINT#6,"ENDE";
23510 Z=0:GOSUB38000
23520 PRINT#6,MID$(STR$(10000+MB),3)MID$(STR$(10000+MA),3)CHR$(KA)CHR$(VA)CHR$(CE);
23530 Z=33:GOSUB38000:MA=MB+MT
23560 FORJ=MTTO0STEP-1
23570 :FORI=1TO12:NR=I:X=FNKB(J):GOSUB45000:PRINT#6,HR$;:NEXTI
23580 :FORI=1TO20:NR=I:X=FNVB(J):GOSUB45000:PRINT#6,HR$;:NEXTI
23585 :NEXTJ
23590 RETURN
25000 REM NAMEN AENDERN
25010 PRINT"[147]NAMENSAENDERUNG            HAUSHALTSBUCH";
25020 PRINT"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]";
25030 GOSUB 55075
25040 GOSUB25600
25080 INPUT"     K[146]ONTO ODER V[146]ERWENDUNG";H$
25085 IFH$<>"K"ANDH$<>"V"THEN25080
25090 HH$="":INPUT"     LAUFENDE NUMMER      ";HH$:H=VAL(HH$)
25100 IFH<1OR(H$="K"AND(H>12ORH>KA+1))OR(H$="V"AND(H>20ORH>VA+1))THEN25090
25110 HH$="":INPUT"     KURZBEZEICHNUNG      ";HH$:HH$=MID$(HH$+" ",1,1)
25120 IFH$="V"THEN25230
25130 FORI=1TOKA
25140 :IFI=HORHH$<>KZ$(I)THEN25160
25150 :MD$="BEZEICHUNG SCHON VERGEBEN":GOSUB62000:GOTO25110
25160 :NEXTI
25170 IFH=KAANDHH$=" "THENKZ$(KA)=" ":KN$(KA)="       ":KA=KA-1:GOTO25400
25175 IFHH$=" "THEN25110
25180 IFH=KA+1THENKA=KA+1
25190 KZ$(H)=HH$
25195 GOTO25300
25230 FORI=1TOVA
25240 :IFI=HORHH$<>VZ$(I)THEN25260
25250 :MD$="BEZEICHUNG SCHON VERGEBEN":GOSUB62000:GOTO25110
25260 :NEXTI
25270 IFH=VAANDHH$=" "THENVZ$(VA)=" ":VN$(VA)="       ":VA=VA-1:GOTO25400
25275 IFHH$=" "THEN25110
25280 IFH=VA+1THENVA=VA+1
25290 VZ$(H)=HH$
25300 GOSUB25600:HH$=""
25305 INPUT"     BEZEICHUNG           ";HH$:HH$=MID$(HH$+"       ",1,7)
25310 IFH$="K"THENKN$(H)=HH$
25320 IFH$="V"THENVN$(H)=HH$
25400 GOSUB55075
25410 INPUT"     WEITER (J/N)         ";HH$
25420 IFHH$="J"THEN25000
25430 IFHH$<>"N"THEN25410
25431 INPUT"     DRUCKERPORT: S[146]ERIELL/U[146]SER ";HH$
25432 IFHH$<>"S"ANDHH$<>"U"THENPRINT"[145][145][145]":GOTO25431
25433 CE=0:IFHH$="U"THENCE=1
25435 GOSUB60000
25440 GOSUB23000
25450 GOTO2000
25600 PRINT"-LOESCHEN DES LETZTEN KONTOS BZW VERW."
25610 PRINT" DURCH BEZEICHUNG 'SPACE'             "
25620 PRINT"-KURZBEZ. MUESSEN EINDEUTIG SEIN       ";
25630 RETURN
26000 REM GRAFIK
26010 PRINT"[147]BILANZEN GRAFIK            HAUSHALTSBUCH";
26020 PRINT"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
26030 PRINT"  WAS WOLLEN SIE SICH ANSEHEN ?"
26040 PRINT"  KONTENUEBERSICHT FUER EINEN MONAT = 1"
26050 PRINT"  VERW.-UEBERSICHT FUER EINEN MONAT = 2"
26055 PRINT"  MONATSUEBERSICHT FUER EIN KONTO   = 3"
26060 PRINT"  MONATSUEBERSICHT FUER EINE VERW.  = 4"
26065 PRINT"  HAUPTMENUE                        = 0"
26070 INPUT"  AUSWAHL                           ";H$
26080 IFH$="1"ORH$="2"THEN27000
26081 IFH$="3"ORH$="4"THEN28000
26082 IFH$="0"ORH$="_"THEN12000
26083 PRINT"[145][145][145]":GOTO26070
27000 PRINT"[147]BILANZEN GRAFIK            HAUSHALTSBUCH";
27001 PRINT"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
27009 J1=INT((MA-1)/12)+1:M1=MA-(J1-1)*12
27010 HH$=MID$(STR$(M1+100),3)+MID$(STR$(J1+100),3)
27020 SYSSA, 5,29,1,HH$
27030 SYSS9, 5, 9:INPUT"MONAT MMJJ        ";HH$
27031 IFHH$="_"THEN12000
27040 M1=VAL(MID$(HH$,1,2)):J1=VAL(MID$(HH$,3,2))
27050 IFM1<1ORM1>12GOTO27000
27060 MU=12*(J1-1)+M1:IFMU<MA-MT ORMU>MAGOTO27000
27070 IFH$="2"THEN27500
27100 REM ALLE KONTEN
27105 M=MA-MU
27110 KL=0:GR=0
27111 J1=INT((MA-M-1)/12)+1:M1=MA-M-(J1-1)*12
27120 FORNR=1TOKA
27130 :IFFNKB(M)<KLTHENKL=FNKB(M)
27140 :IFFNKB(M)>GRTHENGR=FNKB(M)
27150 :NEXTNR
27155 KL=-KL
27160 IFGR-KL=0THENMD$="ALLE KONTEN SIND NULL":GOSUB62500:GOTO26000
27170 CB=GR/15:IFKL>GRTHENCB=KL/15
27210 PRINT"[147]GRAFIK     KONTEN "M$(M1)" "MID$(STR$(J1+100),3,2)"[154]  HAUSHALTSBUCH";
27220 PRINT"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
27230 FORK=1TOKA
27240 :NR=K:I1=INT(ABS(FNKB(M))/CB*EP)
27250 :I2=INT((ABS(FNKB(M))-I1*CB)/CB*4)
27260 :H=1:GOSUB29500
27320 :NEXTK
27330 SYSSA,22,0,1,"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]";
27340 PRINT"F1 QUIT  F3 VERW. F5/F7 AUSWAHL F2 DRUCK";
27350 MD$="FUNKTIONTASTE WAEHLEN":GOSUB62000
27360 CA=0:CN=0
27370 POKE198,0:WAIT198,1:GETHH$
27375 IFHH$="[137]"THENGOSUB3500
27380 IFHH$="[133]"THEN12000
27390 IFHH$="[134]"THEN27510
27400 IFHH$="[135]"ANDCA=0THENCN=KA+6
27410 IFHH$="[135]"ANDCA>7THENCN=CA-1
27420 IFHH$="[136]"ANDCA=0THENCN=7
27430 IFHH$="[136]"ANDCA>0ANDCA<KA+6THENCN=CA+1
27440 IFHH$=CHR$(13)ANDCN>0THENK=CN-6:GOTO28100
27450 GOSUB29000
27460 CA=CN:GOTO27370
27500 REM ALLE VERW.
27505 M=MA-MU
27510 KL=0:GR=0
27511 J1=INT((MA-M-1)/12)+1:M1=MA-M-(J1-1)*12
27520 FORNR=1TOVA
27530 :IFFNVB(M)<KLTHENKL=FNVB(M)
27540 :IFFNVB(M)>GRTHENGR=FNVB(M)
27550 :NEXTNR
27555 KL=-KL
27560 IFGR-KL=0THENMD$="ALLE VERW.  SIND NULL":GOSUB62500:GOTO26000
27570 CB=GR/15:IFKL>GRTHENCB=KL/15
27610 PRINT"[147]GRAFIK   VERW.  "M$(M1)" "MID$(STR$(J1+100),3,2)"[154]    HAUSHALTSBUCH";
27620 PRINT"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]";
27630 FORK=1TOVA
27640 :NR=K:I1=INT(ABS(FNVB(M))/CB*EP)
27650 :I2=INT((ABS(FNVB(M))-I1*CB)/CB*4)
27660 :H=2:GOSUB29500
27720 :NEXTK
27730 SYSSA,22,0,1,"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]";
27740 PRINT"F1 QUIT  F3 KONTO F5/F7 AUSWAHL F2 DRUCK";
27750 MD$="FUNKTIONTASTE WAEHLEN":GOSUB62000
27760 CA=0:CN=0
27770 POKE198,0:WAIT198,1:GETHH$
27775 IFHH$="[137]"THENGOSUB3500
27780 IFHH$="[133]"THEN12000
27790 IFHH$="[134]"THEN27110
27800 IFHH$="[135]"ANDCA=0THENCN=VA+1
27810 IFHH$="[135]"ANDCA>2THENCN=CA-1
27820 IFHH$="[136]"ANDCA=0THENCN=2
27830 IFHH$="[136]"ANDCA>0ANDCA<VA+1THENCN=CA+1
27840 IFHH$=CHR$(13)ANDCN>0THENK=CN-1:GOTO28500
27850 GOSUB29000
27860 CA=CN:GOTO27770
28000 REM MONATSUEBERS\
28010 PRINT"[147]GRAFIK                     HAUSHALTSBUCH";
28020 PRINT"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]";
28030 GOSUB55075
28035 IFH$="4"THEN28050
28040 INPUT"         WELCHES KONTO  ";HH$
28041 IFHH$="_"THEN12000
28042 FORK=1TOKA:IFHH$<>KZ$(K)THENNEXT
28044 IFK>KATHEN28040
28046 GOTO28100
28050 INPUT"         WELCHE VERWENDUNG";HH$
28051 IFHH$="_"THEN12000
28052 FORK=1TOVA:IFHH$<>VZ$(K)THENNEXT
28054 IFK>VATHEN28050
28056 GOTO28500
28100 REM MONATSUEB. KONTEN
28110 KL=0:GR=0:NR=K
28120 FORM=0TOMT
28130 :IFFNKB(M)<KLTHENKL=FNKB(M)
28140 :IFFNKB(M)>GRTHENGR=FNKB(M)
28150 :NEXTM
28155 KL=-KL
28160 IFGR-KL=0THENMD$="ALLE KONTEN SIND NULL":GOSUB62500:GOTO26000
28170 CB=GR/15:IFKL>GRTHENCB=KL/15
28210 PRINT"[147]GRAFIK       KONTO "KN$(K)"[154] HAUSHALTSBUCH";
28220 PRINT"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]";
28225 VS=0:MU=0:MO=MT:IFMO>19THENMO=19
28230 FORM=0TOMO
28235 :J1=INT((MA-M-1)/12)+1:M1=MA-M-(J1-1)*12
28240 :NR=K:I1=INT(ABS(FNKB(M))/CB*EP)
28250 :I2=INT((ABS(FNKB(M))-I1*CB)/CB*4)
28260 :H=3:GOSUB29500
28270 :IFVS<>0THENRETURN
28320 :NEXTM
28325 VS=1
28330 SYSSA,22,0,1,"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]";
28340 PRINT"F1 QUIT  F3 VERW. F5/F7 AUSWAHL F2 DRUCK";
28350 IFMT>MOTHENMD$="FUNKTION WAEHLEN ODER SCROLLEN":GOSUB62000
28355 IFMT<=MOTHENMD$="FUNKTIONTASTE WAEHLEN":GOSUB62000
28360 CA=0:CN=0
28370 POKE198,0:WAIT198,1:GETHH$
28375 IFHH$="[137]"THENGOSUB3500
28380 IFHH$="[133]"THEN12000
28390 IFHH$="[134]"THENH$="4":GOTO28000
28400 IFHH$="[135]"ANDCA=0THENCN=MO+2:M=MO
28410 IFHH$="[135]"ANDCA>2THENCN=CA-1:M=M-1
28420 IFHH$="[136]"ANDCA=0THENCN=2:M=MU
28430 IFHH$="[136]"ANDCA>0ANDCA<=MO+1ANDCA<21THENCN=CA+1:M=M+1
28440 IFHH$=CHR$(13)ANDCN>0THEN27110
28442 IFHH$=""ANDMO<MTTHENSYSSC,2,21,;:MO=MO+1:MU=MU+1:M=MO:CA=CA-1:CH=21:GOSUB28235
28444 IFHH$="[145]"ANDMU>0THENSYSSD,2,21,;:MU=MU-1:MO=MO-1:M=MU:CA=CA+1:CH=2:GOSUB28235
28450 GOSUB29000
28460 CA=CN:GOTO28370
28500 REM UEBERS. VERW,
28510 KL=0:GR=0:NR=K
28520 FORM=0TOMT
28530 :IFFNVB(M)<KLTHENKL=FNVB(M)
28540 :IFFNVB(M)>GRTHENGR=FNVB(M)
28550 :NEXTM
28555 KL=-KL
28560 IFGR-KL=0THENMD$="ALLE VERW.  SIND NULL":GOSUB62500:GOTO26000
28570 CB=GR/15:IFKL>GRTHENCB=KL/15
28610 PRINT"[147]GRAFIK    VERW.  "VN$(K)"[154]   HAUSHALTSBUCH";
28620 PRINT"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]";
28625 VS=0:MU=0:MO=MT:IFMO>19THENMO=19
28630 FORM=0TOMO
28635 :J1=INT((MA-M-1)/12)+1:M1=MA-M-(J1-1)*12
28640 :NR=K:I1=INT(ABS(FNVB(M))/CB*EP)
28650 :I2=INT((ABS(FNVB(M))-I1*CB)/CB*4)
28660 :H=4:GOSUB29500
28670 :IFVS<>0THENRETURN
28720 :NEXTM
28725 VS=1
28730 SYSSA,22,0,1,"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]";
28740 PRINT"F1 QUIT  F3 KONTO F5/F7 AUSWAHL F2 DRUCK";
28750 IFMT>MOTHENMD$="FUNKTION WAEHLEN ODER SCROLLEN":GOSUB62000
28760 CA=0:CN=0
28770 POKE198,0:WAIT198,1:GETHH$
28775 IFHH$="[137]"THENGOSUB3500
28780 IFHH$="[133]"THEN12000
28790 IFHH$="[134]"THENH$="3":GOTO28000
28800 IFHH$="[135]"ANDCA=0THENCN=MO+2:M=MO
28810 IFHH$="[135]"ANDCA>2THENCN=CA-1:M=M-1
28820 IFHH$="[136]"ANDCA=0THENCN=2:M=MU
28830 IFHH$="[136]"ANDCA>0ANDCA<=MO+1ANDCA<21THENCN=CA+1:M=M+1
28840 IFHH$=CHR$(13)ANDCN>0THEN27510
28842 IFHH$=""ANDMO<MTTHENSYSSC,2,21,;:MO=MO+1:MU=MU+1:M=MO:CA=CA-1:CH=21:GOSUB28635
28844 IFHH$="[145]"ANDMU>0THENSYSSD,2,21,;:MU=MU-1:MO=MO-1:M=MU:CA=CA+1:CH=2:GOSUB28635
28850 GOSUB29000
28860 CA=CN:GOTO28770
29000 REM CURSOR
29005 IFABS(CA)<=1THENCA=0
29006 IFCH>0ANDCN>0THENCN=CH:CH=0
29010 IFCN>0ANDCA>0ANDCA<>CNTHENFORI=1025+CA*40TO1031+CA*40:POKEI,PEEK(I)AND127:NEXT
29020 IFCN>0THENFORI=1025+CN*40TO1031+CN*40:POKEI,PEEK(I)OR128:NEXT
29040 RETURN
29500 SYSSF,I5$,L$,1,1,40:NR=K
29501 SYSSF,I5$,L$,41,1,6
29510 IFH=1THENSYSSF,I5$,KN$(K),2,1,7:X=FNKB(M)
29520 IFH=2THENSYSSF,I5$,VN$(K),2,1,7:X=FNVB(M)
29530 IFH=3ORH=4THENSYSSF,I5$,M$(M1),2,1,4:SYSSF,I5$,STR$(J1+100),7,3,2
29535 IFH=3THENX=FNKB(M)
29540 IFH=4THENX=FNVB(M)
29550 GOSUB45000
29560 IFX<0THEN29700
29570 SYSSF,I5$,"",9,1,1
29580 SYSSF,I5$,HR$,13,1,11
29600 SYSSF,I5$,"",26,1,1
29610 SYSSF,I5$,"[146]",27+I1,1,1
29620 SYSSF,I5$,G1$(I2),28+I1,1,3
29630 SYSSF,I5$,"[154]",46,1,1
29640 GOTO29800
29700 SYSSF,I5$,"[150]",9,1,1
29710 SYSSF,I5$,G2$(I2),25-I1,1,3
29720 SYSSF,I5$,"",28-I1,1,1
29730 SYSSF,I5$,"[146]",29,1,1
29740 SYSSF,I5$,HR$,31,1,11
29750 SYSSF,I5$,"[154]",46,1,1
29800 PRINTI5$;
29900 RETURN
30000 REM A$ UND B$ ABSPEICHERN
30010 IFAR<199THEN30100
30020 MD$="NUR"+STR$(SM)+"[160]BUCHUNGEN PRO MONAT MOEGLICH"
30030 GOSUB62500
30050 GOTO2000
30100 GOSUB38100:AR=AR+1
30102 Z=0:GOSUB38000
30104 PRINT#6,MID$(STR$(1000+AR),3);
30110 Z=INT((AR-1)/14)+1:ZP=AR-(Z-1)*14:GOSUB38000
30112 SYSS8,1,6,0,I6$
30114 SYSSF,I6$,B$,3*(ZP-1)+1,1,3
30115 GOSUB38000
30117 PRINT#6,I6$;
30130 Z=AR+72:GOSUB38000
30140 PRINT#6,A$;
30150 H=AR:GOSUB37500:S$(AR)=H$
30180 RETURN
31000 REM A$ UND B$ LESEN
31100 GOSUB37000:REM H = REC. NR.
31120 SYSSF,B$,S$(S%(P)),1,1,3
31130 Z=H+72:ZP=1:GOSUB38000
31140 SYSS8,1,6,0,A$
31150 RETURN
32000 REM S%(AR) AUFBEREITEN
32010 IFSS$="K"ORSS$="V"THEN32020
32012 E%=0
32014 IFE%=ARTHENRETURN
32015 IFMID$(S$(E%+1),1,1)=CHR$(160)THENRETURN
32017 E%=E%+1:S%(E%)=E%
32018 GOTO32014
32020 IFSS$="K"THENHS%=2
32030 IFSS$="V"THENHS%=3
32032 HA%=0:E%=AR:H$=CHR$(Y+70)+"?"
32040 SYSSB,AR,S$(1),H$,S%(1),HS%,HA%,E%
32045 FORI=1TOE%:S%(I)=S%(I)+1:NEXT
32050 RETURN
33000 REM A$ UND B$ AENDERN
33100 GOSUB37000:REM H = REC. NR.
33110 Z=INT((H-1)/14)+1:ZP=H-(Z-1)*14:GOSUB38000
33112 SYSS8,1,6,0,I6$
33114 SYSSF,I6$,B$,3*(ZP-1)+1,1,3
33115 GOSUB38000
33117 PRINT#6,I6$;
33130 Z=H+72:GOSUB38000
33140 PRINT#6,A$;
33150 GOSUB37500:S$(S%(P))=H$
33180 RETURN
34000 REM A$ UND B$ LOESCHEN
34100 GOSUB37000:REM H = REC. NR.
34105 B$=CHR$(160)+CHR$(160)+CHR$(160):GOSUB37500:S$(S%(P))=H$
34110 Z=INT((H-1)/14)+1:ZP=H-(Z-1)*14:GOSUB38000
34112 SYSS8,1,6,0,I6$
34114 SYSSF,I6$,B$,3*(ZP-1)+1,1,3
34115 GOSUB38000
34117 PRINT#6,I6$;
34180 RETURN
37000 REM PYS. RECORD NR
37010 H=ASC(MID$(S$(S%(P)),4,1))+256*ASC(MID$(S$(S%(P)),5,1))
37020 RETURN
37500 REM S$ GEN
37502 HH=INT(H/256)
37504 HL=H-HH*256
37510 H$=B$+CHR$(HL)+CHR$(HH)
37520 RETURN
38000 REM AUF RECORD Z POS.
38010 ZH=INT((Z+1)/256):ZL=Z+1-ZH*256
38020 PRINT#3,"P"CHR$(6)CHR$(ZL)CHR$(ZH)CHR$(1)
38030 MT$="DISK VOLL":GOSUB61000
38060 RETURN
38100 IFINT((AR-72)/100)*100<>AR-72THENRETURN
38110 MD$="DATEI WIRD VERGROESSERT":GOSUB62000
38120 ZH=INT((AR+101)/256):ZL=AR+101-ZH*256
38130 PRINT#3,"P"CHR$(6)CHR$(ZL)CHR$(ZH)CHR$(1)
38132 MT$="DISK VOLL":GOSUB61000
38140 PRINT#6," 0000000.00";:GOSUB61000
38150 RETURN
39000 REM S$(AR) EINLESEN
39005 GOSUB38100
39010 Z=0:GOSUB38000
39020 SYSS8,1,6,0,H3$:AR=VAL(H3$)
39030 Z=1:GOSUB38000:SYSS8,AR,6,2,S$(1)
39080 GOSUB39500
39090 RETURN
39500 REM S$(AR) SORTIEREN
39510 SYSS1,AR,S$(1)
39599 RETURN
45000 REM X RUNDEN
45005 IFX=0ORABS(X)>=1E6THEN45009
45006 X=X+0.005*SGN(X)
45009 SYSSF,HR$,L$,1,1,11
45010 SYSSF,HR$,STR$(X),1,1,11
45020 SYSS7,HR$,2
45030 X=VAL(HR$)
45040 RETURN
46000 REM BUCHUNG IN DIE BILANZEN
46005 GOSUB60000
46010 JH=VAL(MID$(DN$,1,2))
46020 MH=VAL(MID$(DN$,3,2))
46030 MH=MH+12*(JH-1)
46033 SYSSF,HR$,A$,1,1,11
46034 HW=VAL(HR$)
46035 K=ASC(MID$(B$,2,1))-70
46036 L=ASC(MID$(B$,3,1))-70
46037 NR=L:IFABS(FNVB(MA-MH)+HW*V)<10E6THEN46041
46038 MD$="UEBERLAUF BILANZEN, NICHT GEBUCHT":GOSUB62500:GOTO2000
46041 FORJ=0TOMA-MH
46042 :NR=K:IFABS(FNKB(J)+HW*V)<10E6THEN46044
46043 MD$="UEBERLAUF BILANZEN, NICHT GEBUCHT":GOSUB62500:GOTO2000
46044 :NEXTJ
46045 FORJ=0TOMA-MH
46050 :NR=K:H=FNKB(J)+HW*V:SYSS5,(32*J+K-1)*6,H
46052 :NR=K:X=FNKB(J):GOSUB45000:SYSS5,(32*J+K-1)*6,X
46053 Z=32+(MA-MB-J)*32+K:GOSUB38000:PRINT#6,HR$;
46055 :NEXTJ
46070 NR=L:H=FNVB(MA-MH)+HW*V:SYSS5,(32*(MA-MH)+L+11)*6,H
46072 NR=L:X=FNVB(MA-MH):GOSUB45000:SYSS5,(32*(MA-MH)+L+11)*6,X
46075 Z=44+(MH-MB)*32+L:GOSUB38000:PRINT#6,HR$;
46079 GOSUB63000
46080 RETURN
48000 REM BILANZEN SCREEN
48160 PRINT"[147]BILANZEN        "M$(M1)" "MID$(STR$(J1+100),3,2)"[154]    HAUSHALTSBUCH";
48165 PRINT"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]";
48170 PRINT"     VERWENDUNG            KONTEN[160]"
48175 YY=0
48180 FORI=1TOVA
48181 :NR=I:X=FNVB(MA-MU):YY=YY+X
48182 :GOSUB45000
48190 :PRINTVN$(I)":"HR$
48200 :NEXT
48220 PRINT""
48230 XX=0
48280 FORI=1TOKA
48290 :NR=I:X=FNKB(MA-MU):XX=XX+X
48300 :GOSUB45000
48310 :PRINTTB$KN$(I)":"HR$;
48320 :NEXT
48322 X=XX
48324 GOSUB45000
48326 PRINT""TB$"       SUMMEN "
48327 X=XX-YY:GOSUB45000:PRINT""TB$"VORMON.:"HR$;
48328 X=YY:GOSUB45000:PRINTTB$"VERW.  :"HR$;
48329 X=XX:GOSUB45000:PRINTTB$"KONTEN :"HR$;
48330 RETURN
49000 REM MONAT MIT BILANZEN AKTUALIS.
49010 JH=VAL(MID$(F1$,7,2))
49020 MH=VAL(MID$(F1$,4,2))
49030 MN=12*(JH-1)+MH
49040 IFMA>=MNTHENRETURN
49045 MA=MA+1:MT=MT+1:IFMT>MGTHENMT=MG
49050 FORKK=1TOKA
49060 :FORK=MTTO1STEP-1
49070 : NR=KK:H=FNKB(K-1):SYSS5,(32*K+KK-1)*6,H
49080 : NEXTK
49081 :NEXTKK
49082 FORKK=1TOVA
49083 :FORK=MTTO1STEP-1
49084 : NR=KK:H=FNVB(K-1):SYSS5,(32*K+KK+11)*6,H
49085 : NEXTK
49086 :SYSS5,(KK+11)*6,0
49090 :NEXTKK
49095 GOSUB60000
49100 Z=0:GOSUB38000
49110 PRINT#6,MID$(STR$(10000+MB),3)MID$(STR$(10000+MA),3)CHR$(KA)CHR$(VA)CHR$(CE);
49120 Z=32*(MA-MB)+33:GOSUB38000
49130 FORI=1TO12:NR=I:X=FNKB(0):GOSUB45000:PRINT#6,HR$;:NEXT
49140 FORI=1TO20:NR=I:X=FNVB(0):GOSUB45000:PRINT#6,HR$;:NEXT
49150 CLOSE6:OPEN6,8,6,"HB-"+DN$:MT$="OPEN BUCHUNGEN":GOSUB61000
49500 GOTO49040
53000 REM TASTENBELEGUNG
53010 SYSS9,22,0
53020 IFAI$<>"E"THEN53050
53030 PRINT"F1 WEITERE EINGABE F7 HAUPTMENUE        ";
53040 PRINT"F2 EINGABE LOESCH. F8 ABBRUCH           ";
53050 IFAI$<>"D"THEN53080
53060 PRINT"F1 WEITER   F3 ZURUECK   F7 HAUPTMENUE  ";
53070 PRINT"F2 AENDERN  F4 LOESCHEN                 ";
53080 RETURN
53500 REM AENDERUNG
53510 SYSS9,22,0
53530 PRINT"DATEN AENDERN UND FUNKTIONSTASTE WAEHLEN";
53540 PRINT"F1,F7  DATEN UEBERNEHMEN   F2,F8 ABBRUCH";
53550 RETURN
54000 REM ERG.-TEXT
54060 FORKK=1TOKA
54070 :IFF$(4)<>KZ$(KK)THENNEXT
54100 IFKK<=KATHENSYSSA,FY(4),FX(4)+1,1,"[160]=[160]"KN$(KK)"[146]";
54105 RETURN
54110 FORKK=1TOVA
54120 :IFF$(5)<>VZ$(KK)THENNEXT
54150 IFKK<=VATHENSYSSA,FY(5),FX(5)+1,1,"[160]=[160]"VN$(KK)"[146]";
54160 RETURN
55000 REM HINTERGRUND
55010 IFAI$="E"THENPRINT"[147]EINGABE                    HAUSHALTSBUCH";
55012 IFAI$="D"THENPRINT"[147]DURCHSICHT                 HAUSHALTSBUCH";
55013 IFAJ$="6"THENPRINT"[147]BILANZKORREKTUR            HAUSHALTSBUCH";
55015 PRINT"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]";
55020 PRINT" DATUM:    ."MID$(DN$,3,2)"."MID$(DN$,1,2)"[146]"
55030 PRINT" TEXT :"
55040 PRINT" WERT :              DM"
55050 PRINT" KONTO:"
55060 PRINT" VERW.:"
55075 SYSSA,11,0,1,"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]KONTEN[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]";
55076 IFKA=0THEN55110
55080 FORI=1TO12
55090 :IFI<=KATHENPRINT""KZ$(I)"[154]="KN$(I)" ";
55095 :IFI>KATHENPRINT"          ";
55100 :NEXTI
55110 SYSSA,15,0,1,"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]VERWENDUNG[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]";
55112 IFVA=0THEN55150
55119 J1$=" "
55120 FORI=1TO20
55125 IFI>19THENJ1$=""
55130 :IFI<=VATHENPRINT""VZ$(I)"[154]="VN$(I)J1$;
55135 :IFI>VATHENPRINT"         "J1$;
55140 :NEXTI
55150 SYSSA,21,0,1,"[185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]";
55999 RETURN
56000 REM F$ INIT.
56010 SYSSF,F$(1),"TT",1,1,2
56020 SYSSF,F$(2),L$,1,1,31
56030 SYSSF,F$(3),"-0[160][160][160][160][160][160][160][160][160]",1,1,11
56040 SYSSF,F$(4),"[160]",1,1,1
56050 SYSSF,F$(5),"[160]",1,1,1
56052 SYSSA,FY(4),FX(4)+1,1,"[160][160][160][160][160][160][160][160][160][160]"
56054 SYSSA,FY(5),FX(5)+1,1,"[160][160][160][160][160][160][160][160][160][160]"
56060 RETURN
56500 REM F$ INIT.
56510 F$(1)="TT"+""
56520 F$(2)=LEFT$(L$,31)
56530 F$(3)="-0         "+""
56540 F$(4)=" "+""
56550 F$(5)=" "+""
56560 RETURN
57000 REM A$ UND B$ => F$
57007 SYSSF,F$(1),STR$(100+ASC(B$)-70),1,3,2
57008 SYSSF,F1$,F$(1),1,1,2
57009 SYSSF,F1$,DN$,4,3,2
57010 SYSSF,F1$,DN$,7,1,2
57040 SYSSF,F$(2),A$,1,12,31
57050 SYSSF,F$(3),A$,1,1,11
57060 SYSSF,F$(4),KZ$(ASC(MID$(B$,2,1))-70),1,1,1
57070 SYSSF,F$(5),VZ$(ASC(MID$(B$,3,1))-70),1,1,1
57080 RETURN
58000 REM F$ => A$ UND B$
58010 SYSSF,A$,F$(3),1,1,11
58015 SYSSF,A$,F$(2),12,1,31
58060 FORI=1TOKA+1
58070 :IFF$(4)<>KZ$(I)THENNEXT
58090 FORII=1TOVA+1
58100 :IFF$(5)<>VZ$(II)THENNEXT
58110 SYSSF,B$,CHR$(VAL(F$(1))+70),1,1,1
58111 SYSSF,B$,CHR$(I+70),2,1,1
58112 SYSSF,B$,CHR$(II+70),3,1,1
58120 RETURN
60000 REM OPEN BILANZEN
60010 CLOSE6
60230 OPEN6,8,6,"HB-BILANZEN"
60231 INPUT#3,FM
60232 IFFM=62THEN60500
60233 MT$="OPEN BILANZDATEI":GOSUB61002
60299 RETURN
60500 MD$="FALSCHE DISK: PROGRAMMDISK EINLEGEN"
60501 GOSUB62500
60502 GOTO60000
61000 INPUT#3,FM
61002 IFFM=0ORFM=50THENRETURN
61010 MD$=MT$+": FLOPPY FEHLER "+STR$(FM)+" "
61020 GOSUB62000
61025 GOSUB62800:IFFP=1THENRUN
61026 ONFPGOTO100,2000,12000
61030 RETURN
62000 REM MD$ DRUCKEN
62010 SYSS9,24,0
62020 PRINT" >>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<";
62040 H1=INT((36-LEN(MD$))/2)+2
62045 SYSS9,24,H1
62050 PRINT" "MD$" [146]";
62060 RETURN
62500 GOSUB62000
62800 REM WAIT
62810 POKE198,0:WAIT198,1:POKE198,0
62820 RETURN
63000 REM OPEN BUCHUNGEN
63010 CLOSE6
63220 SYSSF,H7$,"HB-",1,1,3
63221 SYSSF,H7$,DN$,4,1,4
63230 OPEN6,8,6,H7$
63231 INPUT#3,FM
63232 IFFM=62ANDAI$= "E"THENGOSUB63500
63233 IFFM=62THEN63400
63234 GOSUB61002
63240 IFDN$<>DA$THENGOSUB39000:SYSSF,DA$,DN$,1,1,4
63299 RETURN
63400 MD$="DATEI NICHT AUF DISK":GOSUB62000:CLOSE6:RETURN
63500 MD$=H7$+" ANLEGEN (J/N) ?"
63501 GOSUB62000
63502 POKE198,0:WAIT198,1:GETHH$:IFHH$<>"J"ANDHH$<>"N"GOTO63502
63504 IFHH$="N"THEN2000
63510 CLOSE6
63520 OPEN6,8,6,"0:"+H7$+",L,"+CHR$(42)
63530 MT$="DISK VOLL":GOSUB61000
63535 MT$="ANLEGEN DATEI":GOSUB61000
63537 Z=173:GOSUB38000:GOSUB61000:PRINT#6," 999999.99":GOSUB61000
63538 FORZ=0TO72:GOSUB38000:PRINT#6,L$;:NEXT
63539 AR=0:Z=0:GOSUB38000:PRINT#6,"000";
63540 RETURN